1) LIBMAC.OLD[PAS,SYS] and 2) LIBMAC.MAC[PAS,SYS]	10-23-78 03:09	pages 27,27

**** File 1) LIBMAC.OLD[PAS,SYS], Page 27 line 40
1)		FILBIN=	17			    ;FLAGS TO TEST FOR ASCII-MODE
**** File 2) LIBMAC.MAC[PAS,SYS], Page 27 line 40
2)		FILDAT= 1			    ;FLAG TO TEST FOR TEXT-FILE
2)		FILBIN=	17			    ;FLAGS TO TEST FOR ASCII-MODE
***************


**** File 1) LIBMAC.OLD[PAS,SYS], Page 27 line 111
1)	PUTEST: SOSGE	FILBTC(REG)		    ;SPACE LEFT IN BUFFER ?
**** File 2) LIBMAC.MAC[PAS,SYS], Page 27 line 112
2)		hlrz	ac0	,filptr(reg)	    ;text-file?  (*EJG 23OCT78*)
2)		trnn	ac0	,fildat		    ;skip if no  (*EJG 23OCT78*)
2)		jrst	putesx			    ;jump if yes (*EJG 23OCT78*)
2)	PUTEST: SOSGE	FILBTC(REG)		    ;SPACE LEFT IN BUFFER ?
***************


**** File 1) LIBMAC.OLD[PAS,SYS], Page 27 line 116
1)		CAIN	AC0	,"←"
1)		MOVEI	AC0	,30		    ;Ko: convert to Stanford underbar
1)		IDPB	AC0	,FILBTP(REG)	    ;DEPOSIT IN OUTPUT BUFFER
**** File 2) LIBMAC.MAC[PAS,SYS], Page 27 line 120
2)		IDPB	AC0	,FILBTP(REG)	    ;DEPOSIT IN OUTPUT BUFFER
***************


**** File 1) LIBMAC.OLD[PAS,SYS], Page 27 line 121
1)	;
**** File 2) LIBMAC.MAC[PAS,SYS], Page 27 line 123
2)	; Use loop "putesx" only for text-files: Stanford ASCII translation (*EJG 23OCT78*)
2)	putesx: SOSGE	FILBTC(REG)		    ;SPACE LEFT IN BUFFER ?
2)		JRST	[
2)		PUSHJ	TOPP	,PUTBF1		    ;PUT CURRENT BUFFER
2)		JRST	putesx]			    ;RET TO CALLER
2)		MOVE	AC0	,(AC1)		    ;GET NEXT WORD OF COMPONENT
2)		CAIN	AC0	,"←"
2)		MOVEI	AC0	,30		    ;Ko: convert to Stanford underbar
2)		IDPB	AC0	,FILBTP(REG)	    ;DEPOSIT IN OUTPUT BUFFER
2)		AOBJN	AC1	,putesx 	    ;MORE WORDS IN COMPONENT ?
2)		POPJ	TOPP	,		    ;NO
2)	;
***************